home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cdity / EasyPatch133a.lha / EasyPatch133a / Docs / SendMail.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-26  |  971 b   |  73 lines
  1. /* SendMail.rexx <mailer> - © Alessandro Zummo */
  2.  
  3. author  = 'azummo@ita.flashnet.it'
  4. subject = 'EasyPatch 1.32'
  5.  
  6. PARSE ARG mailer
  7.  
  8. IF mailer = 'Clip' THEN
  9. DO
  10.     ADDRESS COMMAND 'ClipWrite "'author'"'
  11.  
  12.     EXIT
  13. END
  14.  
  15. IF mailer = 'Yam' THEN
  16. DO
  17.     IF ~SHOW('P','YAM') THEN DO
  18.  
  19.         PRAGMA('S',10000)
  20.  
  21.           ADDRESS 'COMMAND'
  22.  
  23.         IF EXISTS('YAM:MultiYAM') 
  24.         THEN 
  25.             'Run YAM:MultiYAM'
  26.           ELSE
  27.             'Run YAM:YAM NOCHECK'
  28.  
  29.           'SYS:RexxC/WaitForPort YAM'
  30.     END
  31.  
  32.     ADDRESS 'YAM'
  33.     MailWrite
  34.     WriteSubject '"'subject'"'
  35.     WriteMailTo '"'author'"'
  36.  
  37.     EXIT
  38. END
  39.  
  40.  
  41. IF SHOW('P','IBROWSE') THEN
  42. DO
  43.     IF ~SHOW('Ports','IBROWSE') THEN CALL ERROR
  44.  
  45.     ADDRESS 'IBROWSE'
  46.  
  47.     gotourl 'mailto:'author
  48.  
  49.     EXIT
  50. END
  51.  
  52.  
  53. IF SHOW('P','Voyager') THEN
  54. DO
  55.     IF ~SHOW('Ports','VOYAGER') THEN CALL ERROR
  56.  
  57.     ADDRESS 'VOYAGER'
  58.  
  59.     openurl 'mailto:'author
  60.  
  61.     EXIT
  62. END
  63.  
  64.  
  65. ERROR:
  66.  
  67. Say 'Cannot found a compatible mailer!'
  68.  
  69. ADDRESS COMMAND 'RequestChoice TITLE="SendMail.rexx" BODY="Cannot found a compatible mailer!" "Ok" >NIL:'
  70.  
  71. EXIT
  72.  
  73.